home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / RoboWar •••• / Robots Folder / Freud / Freud next >
Text File  |  1990-04-27  |  1KB  |  74 lines
  1. # Freud
  2. # Created 3/12/90 by David Harris
  3. # 
  4. # Has no relation whatsoever to any bears.
  5.  
  6. Init:
  7.     3 speedx' store
  8.     3 speedy' store
  9.  
  10. Main:
  11.     collision handleCollision if
  12.     range shootSub if
  13.     x 30 < leftEdge if
  14.     x 270 > rightEdge if
  15.     collision handleCollision if
  16.     y 60 < topEdge if
  17.     y 270 > bottomEdge if
  18.     aim 17 + aim' store
  19.     energy 90 > letOffSteam if
  20.     Main jump
  21.  
  22. leftEdge:
  23.     2 random 120 / + speedx' store
  24.     return
  25.  
  26. rightEdge:
  27.     -2 random 120 / - speedx' store
  28.     return
  29.  
  30. topEdge:
  31.     2 random 120 / + speedy' store
  32.     return
  33.  
  34. bottomEdge:
  35.     -2 random 120 / - speedy' store
  36.     return
  37.  
  38. shootSub:
  39.     energy missile' store
  40.     aim 30 - aim' store
  41.     return
  42.  
  43. letOffSteam:
  44.     40 missile' store
  45.     return
  46.  
  47. handleCollision:
  48.     range checkTarget if
  49.     aim 70 + aim' store
  50.     collision repeatSearch endSearch ife
  51.  
  52. checkTarget:
  53.     range 35 < foundTarget if
  54.     return
  55.  
  56. foundTarget:
  57.     50 missile' store
  58.     range targetPresent targetDead ife
  59.  
  60. targetPresent:
  61.     drop
  62.     foundTarget jump
  63.  
  64. targetDead:
  65.     drop
  66.     return  # to checkTarget
  67.  
  68. repeatSearch:
  69.     drop
  70.     handleCollision jump
  71.  
  72. endSearch:
  73.     drop
  74.     return